* OPEN STATA OUTPUT FILE LOG *



log using "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Output/APPENDIX C MODELS.04-20-2021.smcl", replace
     

   ****** MANUSCRIPT MODELS PROGRAM FILE: ACCOUNTING FOR SAMPLE SELECTION BIAS FROM N = 265 UNCONFIRMED CASES & 22 RIGHT-CENSORED CASES CONFIRMED IN FUTURE CONGRESS ****** 
   ****** [RULE 31 CASES: N = 141: WITHRDRAWN BY PRESIDENT CASES: N = 123; DEFEATED IN SENATE FLOOR VOTE CASES: N = 1] 
   
   

   
   **** QUANTILE SURVIVAL MODELS: ASYMMETRIC LAPLACE MLE CONDITIONAL DENSITY SURVIVAL MODELS OF CONFIRMATION DECAY ****
 
 
   **** APPENDIX C: ACCOUNTING FOR BOTH CENSORING AND SAMPLE SELECTION IN THE MODEL ESTIMATES ****
         
   **** PROGRAM FILE FOR "CONFIRMATION DYNAMICS" PROJECT [UPDATED FROM 03-28-2019]: TESTING 'DUE DILIGENCE' THEORY HYPOTHESES USING QUANTILE SURVIVAL REGRESSION MODELS [N = 1,013]****
   **** WHILE CONTROLLING FOR NON-RANDOM SAMPLE SELECTION USING SEMINPARAMETRIC BINARY INDEX FUNCTION IN 1ST STAGE AND RESULTING INVERSE MILLS RATIOS IN 2ND STAGE ****
   **** [N = 265: 1,278 - 1,013] ACCOUNTING FOR CENSORING IN THE ASYMMETRIC LAPLACE OUTCOME EQUATION FOR 'EVENTUAL' SUCCESSFUL CONFIRMATIONS THAT TAKE PLACE OUTSIDE OF THE ****   
   **** SENATE BIENNIEL SESSION FOR THE SAME POSITION UNDER SAME ADMINISTRATION [DUE TO RULE 31: N = 141; WITHRDRAWN BY PRESIDENT: N = 123; DEFEATED IN SENATE FLOOR VOTE: N = 1] ***
   

   
 

 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace







*** "DUE DILIGENCE" CONTEXTUAL EFFECTS BASED ON POSITION TYPE [TIER 1 VERSUS TIER 2 NOMINEE SLOPE DIFFERENCES] ***
*** NOTE: CONTEXTUAL VARIABLES THAT APPEAR MULTIPLICATIVE/INTERACTION FORM ARE RESCALED TO BE ZERO BOUNDED FOR EASE OF INTERPRETATION OF ADDITIVE BASELINE EFFECTS ***



*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************




**** OUTCOME EQUATIONS: PREDICT CONFIRMATION DELAY DURATION (IN DAYS) USING SINGLE RECORD EVENTS ****






*** PART 1: MODELS ANALAYZING OVERALL CONFIRMATION DELAY [CONFIRMATION DATE - NOMINATION DATE] *** 




**** SELECTION EQUATION: PREDICT PROBABILITY THAT OBSERVATION IS CONFIRMED (= 1) OR DERAILED THROUGH FORMAL MECHANISMS: RULE 31, WITHDRAWN, OR DEFEATED IN FORMAL VOTE ****

*** STEP 1: ESTIMATE A BINARY PROBIT MODEL MODEL PREDICTING THOSE NOMINEES WHO ARE EVENTUALLY CONFIRMED [I.E., BOTH OBSERVED AND CENSORED OUTCOMES: N = 1,013] ******
***         FROM THOSE THAT ARE NOT [I.E., THOSE NOMINEES WHOSE CONFIRMATION 'FAILS' FOR ANY REASON: N = 265] ***
***         PLEASE NOTE: "STAGGERED", "NEWPOSITION", "PRENOMVACLOW" & "PRENOMVACHMED" COVARIATES ARE UNIQUE REGRESSORS IN THE SELECTION EQUATION ///
***         THAT DO NOT APPEAR IN THE OUTCOME EQUATION [CAPTURED IN BASELINE INTERCEPT TERM: ADMINTERMYR4: ADMINYEAR==4 | ADMINYEAR==8; PRENOMVACHIGH: PRENOMVACNOM >= 91 DAYS]    
***         SUBSEQUENTLY COMPUTE THE INVERSE MILLS RATIO FOR EACH SELECTION EQUATION   


*** FIRST, ESTIMATE SELECTION MODEL FOR THE COMPLETE SAMPLE OF THWARTED OBSERVATIONS [N = 265] ***
 
probit confirmselectin filipresdistancelewiszb  senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign  ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition prenomvaclow prenomvacmed
*
estimates store model1
estout model1, cells(b(star fmt(3)) se(par fmt(2)))
*
test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect1, xb
*
gen IMR1 = exp(-.5*phatselect1^2)/(sqrt(2*_pi)*normprob(phatselect1))
*
*                                                                                                                                                                                      


*** SECOND, ESTIMATE SELECTION MODEL FOR THE PARTIAL SAMPLE OF THWARTED OBSERVATIONS, ///
*** OMIT N = 44 RULE 31 CASES EVENTUALLY CONFIRMED THAT ARE NOT OBSERVED IN THE 0-K DATABASE  [N = 221 : 265 - 44] ***

probit confirmselectin  filipresdistancelewiszb  senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2
*
estimates store model2
estout model2, cells(b(star fmt(3)) se(par fmt(2)))
*
test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))

           
		   
	   
		   
*** MODEL C.1A: PREDICTING TIME FROM NOMINATION TO TIME TO CONFIRMATION ON SENATE FLOOR [confdur] - AUGMENTED MODEL ///
***             (ACCOUNTING FOR SAMPLE SELECTION BIAS FROM ALL'THWARTED' CASES: N = 265) ****


 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg confdur  filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR1  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)
*


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use1.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use1.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2A1.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use2.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use2.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-250(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2B1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use3.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use3.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-400(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2C1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use4.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use4.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2D1.eps"

*
* 
*
*graph 2.1a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"

gr combine FigureC2A1.gph FigureC2B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC21Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC21Acomb.eps"

*graph 2.1b
gr combine FigureC2C1.gph FigureC2D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC21Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC21Bcomb.eps"


 
***************************************************************************************************************************************************************************************
************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

   
	   
		   
*** MODEL C.1B: PREDICTING TIME FROM NOMINATION TO TIME TO CONFIRMATION ON SENATE FLOOR [confdur] - AUGMENTED MODEL ///
***             (ACCOUNTING FOR SAMPLE SELECTION BIAS BY OMITTING N = 44 RULE 31 CASES EVENTUALLY CONFIRMED: N = 221 'THWARTED' CASES) ****

 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace



probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))

 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg confdur  filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR2  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)
*


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use5.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use5.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2A2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use6.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use6.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-300(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2B2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use7.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use7.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-450(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2C2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use8.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use8.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC2D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC2D2.eps"

*
* 
*
*graph 2.2a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"
 
gr combine FigureC2A2.gph FigureC2B2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC22Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC22Acomb.eps"

*graph 2.2b
gr combine FigureC2C2.gph FigureC2D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC22Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC22Bcomb.eps"

 



****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************** 




*** PART 2: MODELS ANALYZING SENATE COMMITTEE CONFIRMATION DELAY: INFORMATIONAL VETTING [REPORTED OUT OF SENATE COMMITTEE DATE - NOMINATION DATE] *** 

 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace



************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
                                
  
  
** NOTE: EMPLOY INVERSE MILLS RATIO ESTIMATES [IMR1, IMR2] GENERATED IN PART 1 ***

probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign  ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition prenomvaclow prenomvacmed

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect1, xb
*
gen IMR1 = exp(-.5*phatselect1^2)/(sqrt(2*_pi)*normprob(phatselect1))
*
*                                                                                                                                                                                      


*** SECOND, ESTIMATE SELECTION MODEL FOR THE PARTIAL SAMPLE OF THWARTED OBSERVATIONS, ///
*** OMIT N = 44 RULE 31 CASES EVENTUALLY CONFIRMED THAT ARE NOT OBSERVED IN THE 0-K DATABASE  [N = 221 : 265 - 44] ***

probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))
  
	   
		   
*** MODEL C.2A: PREDICTING TIME FROM NOMINATION TO TIME TO REPORTED OUT OF SENATE COMMITTEE [LEGVETDUR] - AUGMENTED MODEL ///
***             (ACCOUNTING FOR SAMPLE SELECTION BIAS FROM ALL'THWARTED' CASES: N = 265) ****

   
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg legvetdur  filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing  excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR1  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use9.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use9.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3A1.eps"


*************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************** 

*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use10.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use10.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3B1.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use11.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use11.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-400(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3C1.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use12.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use12.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3D1.eps"
*
*
*
*graph 3.1a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"

gr combine FigureC3A1.gph  FigureC3B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC31Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC31Acomb.eps"
*

*graph 3.1b
gr combine FigureC3C1.gph FigureC3D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC31Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC31Bcomb.eps"




************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************



		   
*** MODEL C.2B: PREDICTING TIME FROM NOMINATION TO TIME TO REPORTED OUT OF SENATE COMMITTEE [LEGVETDUR] - AUGMENTED MODEL ///
***            (ACCOUNTING FOR SAMPLE SELECTION BIAS BY OMITTING N = 44 RULE 31 CASES EVENTUALLY CONFIRMED: N = 221 'THWARTED' CASES) ****

 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace


probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))


   
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg legvetdur  filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR2  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use13.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use13.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3A2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 

*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use14.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use14.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash)) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3B2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use15.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use15.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-400(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3C2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use16.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use16.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC3D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC3D2.eps" 
*
*
*
*graph 3.2a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"

gr combine FigureC3A2.gph  FigureC3B2.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC32Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC32Acomb.eps" 
*

*graph 3.2b
gr combine FigureC3C2.gph FigureC3D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC32Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC32Bcomb.eps" 





************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 

*** PART 3: MODELS ANALYZING PROCEDURAL VETTING ON SENATE FLOOR STAGE [CONFIRMATION DATE - REPORTED OUT OF SENATE COMMITTEE DATE] *** 


 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace



*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

                                                    

** NOTE: EMPLOY INVERSE MILLS RATIO ESTIMATES [IMR1, IMR2] GENERATED IN PART 1 ***

probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign  ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition prenomvaclow prenomvacmed

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect1, xb
*
gen IMR1 = exp(-.5*phatselect1^2)/(sqrt(2*_pi)*normprob(phatselect1))
*
*                                                                                                                                                                                      


*** SECOND, ESTIMATE SELECTION MODEL FOR THE PARTIAL SAMPLE OF THWARTED OBSERVATIONS, ///
*** OMIT N = 44 RULE 31 CASES EVENTUALLY CONFIRMED THAT ARE NOT OBSERVED IN THE 0-K DATABASE  [N = 221 : 265 - 44] ***

probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))
   
	   
		   
*** MODEL C.3A: REDICTING TIME FROM REPORTED OUT OF SENATE COMMITTEE TO CONFIRMATION ON SENATE FLOOR [POLVETDUR] - AUGMENTED MODEL ///
***             (ACCOUNTING FOR SAMPLE SELECTION BIAS FROM ALL'THWARTED' CASES: N = 265) ****


 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg polvetdur  filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR1  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use17.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use17.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4A1.eps" 



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 

*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use18.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use18.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-100(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4B1.eps" 



*****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use19.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use19.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4C1.eps" 


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use20.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use20.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4D1.eps"

* 
*
*graph 4.1a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"

gr combine FigureC4A1.gph  FigureC4B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC41Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC41Acomb.eps"
*

*graph 4.1b
gr combine FigureC4C1.gph FigureC4D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC41Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC41Bcomb.eps"


******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************


		   
*** MODEL C.3B: REDICTING TIME FROM REPORTED OUT OF SENATE COMMITTEE TO CONFIRMATION ON SENATE FLOOR [POLVETDUR] - AUGMENTED MODEL ///
***            (ACCOUNTING FOR SAMPLE SELECTION BIAS BY OMITTING N = 44 RULE 31 CASES EVENTUALLY CONFIRMED: N = 221 'THWARTED' CASES) ****


 
 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace




probit confirmselectin  filipresdistancelewiszb senpartydiffmedianlewiszb  senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign ///
agencyind soucountagency1 presappnom endsession fvatreated toplevel2  newpresterm admintermyr1 admintermyr2 admintermyr3 staggered newposition ///
prenomvaclow prenomvacmed if nomoutcome!=2

test staggered = newposition = prenomvaclow = prenomvacmed = 0

*
*
* 
predict phatselect2, xb
*
gen IMR2 = exp(-.5*phatselect2^2)/(sqrt(2*_pi)*normprob(phatselect2))


*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg polvetdur filipresdistancelewiszb filipresdistlewiszbtoplev2  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2  senworkload senhearing excalendarcong ///
senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2  soucountagency1  presappnom endsession newpresterm  fvatreated ///
toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zmecompmedian zpecompmedian  gender minority admintermyr1  admintermyr2 admintermyr3 ///
bush41 clinton bush43 IMR2  if confirmselectin==1, failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) ///
seed(123) reps(1000)


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use21.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use21.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4A2.eps" 



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 

*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use22.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use22.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-100(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4B2.eps" 



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use23.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use23.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4C2.eps" 


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use24.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/use24.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC4D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC4D2.eps"

* 
*

*graph 4.2a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C"

gr combine FigureC4A2.gph  FigureC4B2.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC42Acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC42Acomb.eps"
*

*graph 4.2b
gr combine FigureC4C2.gph FigureC4D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix C/FigureC42Bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix C/FigureC42Bcomb.eps"





*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
log close





